﻿<Serializable()> Public Class KOVarlot
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.Beides)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.Beides)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "VARLOT"
        Armee = Armeen.DM.ToString
        Musik = "Varlot"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 4
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 4
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Besetzungsniedergang(5)
            BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub KOLaden()
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafür sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Besetzungsniedergang(5)
                BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
            End If
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
                Geldheilung(4, 10)
                KeineVersorgung(1)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        WenigerEinahmendurchBesetzungszahl(-0.05#)
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungVarlot
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Varlot"
        Fein = "Kaviar"
        Nein = "Moral"
        Beschreibung = New String() {"Ein skupeloser Mogul von", "Dark Matter. Im ist", "jedes Mittelrecht solange", "es ihm nützt."}
        Stil = New String() {"Gegner bekommen weniger Geld", "für Städte, die von", "feinden Besetzt werden."}
        Gabebeschreibung = New String() {"Gegnerische Besetzungen verlieren für diese Runde", "5 Punkte, dass dadurch", "verlorene Geld fließt in", "Varlots Kasse."}
        SpezialgabeBeschreibung = New String() {"Seine Truppen erhalten 4 TP.", "Gegner müssen diese", "Reperatur bezahlen und", "können selber nicht", "Reparieren oder Versorgen."}
        GabeKosten = 3
        Spezialgabekosten = 4
        Gaben = New String() {"Übernahme", "Feindlicher Aufkauf"}
        Synergie = New Decimal() {1, 2}
        KONamen = New String() {"EDWARD", "CARMEN"}
        Doppelgabenamen = New String() {"Schwarzmarkt", "Erkennbare Undurchsichtigkeit"}
        Gabesätze = New String() {"Bewegt euch!" _
                                     , "Angriff!" _
                                     , "Vorwärts Marsch!" _
                                     , "Auf zum Sieg!" _
                                     , "Lasst euch nicht umzingeln" _
                                     , "Auf weiter."}
        Siegsätze = New String() {"Mission erfüllt." _
                                , "Ein weiterer Tag, eine weitere gewonnene Schlacht." _
                                , "Vielleicht komme ich für eine Beförderung zurück."}
        Tauschsätze = New String() {"Ich werde euch nicht entkommen lassen." _
                                    , "Ich kommandiere jetzt."}
        Doppelgabesätze = New DoppelGabesatz() {New DoppelGabesatz("EDWARD", "VARLOT", "Ich habe da ein paar Waren.", "Immer her damit man kann alles verkaufen.") _
                                              , New DoppelGabesatz("VARLOT", "EDWARD", "Ich brauche, da noch etwas", "Kein Problem im nächtlichen Nebel ist es unterwegs.") _
                                              , New DoppelGabesatz("VARLOT", "CARMEN", "Ich sehe ich habe die richtige Entscheidung mit dir getroffen.", "Ich bin immer die Richtige.") _
                                              , New DoppelGabesatz("VARLOT", "CARMEN", "Du scheinst unbemerkt entkommen zu sein.", "Planung ist alles.") _
                                              , New DoppelGabesatz("CARMEN", "VARLOT", "...umso leiser du bist umso mehr hörst du.", "Gut gesprochen.") _
                                              , New DoppelGabesatz("CARMEN", "VARLOT", "Leider ist unser kleines Katz und Maus Spiel beendet.", "Schade! Sie wären die Richtigen Sklaven gewesen.")}
    End Sub
End Class
